program bs;
const Xk:array[1..6] of integer = (22,44,67,-22,-44,-67);
	d:real = 0.01;
	k:array[1..6] of integer = (1,2,3,-1,-2,-3);
var tmp:real;
    i,j:integer;
    lambda:array[1..6] of real;
    colomn3:array[1..6] of real;

begin

for i:=1 to 6 do begin
	colomn3[i] := SIN( abs(Xk[i]) / sqrt( sqr(300) + sqr(Xk[i])) );
	write(Xk[i],'   ');
	writeln(colomn3[i]:4:5);
end;

for i:=1 to 6 do begin
	lambda[i] := d * colomn3[i] / k[i];
	write(lambda[i]:9:8);
	writeln(lambda[i]*1000000:20:4);
end;

writeln(lambda[2]);
for i:=1 to 6 do tmp:=lambda[i]+tmp;
tmp:= (tmp*1000000) /6;
writeln(tmp:20:40);
end.
